home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Media / SampApps / AdvWorks / AWVB5Demo.EXE / AWUtils_Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-07  |  1.9 KB  |  63 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Adventure Works Database Creation Utility"
  4.    ClientHeight    =   2025
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6795
  8.    Height          =   2430
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2025
  12.    ScaleWidth      =   6795
  13.    Top             =   1170
  14.    Width           =   6915
  15.    Begin VB.TextBox Text1 
  16.       Height          =   495
  17.       Left            =   240
  18.       TabIndex        =   1
  19.       Top             =   1080
  20.       Width           =   6255
  21.    End
  22.    Begin VB.CommandButton Command1 
  23.       Caption         =   "Create Adventure Works Database"
  24.       Height          =   615
  25.       Left            =   1920
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   2775
  29.    End
  30. Attribute VB_Name = "Form1"
  31. Attribute VB_Creatable = False
  32. Attribute VB_Exposed = False
  33. Private Sub Command1_Click()
  34. Dim objCreateAWData As New AWDataUtil
  35. Text1.Text = "Creating Customer Tables.  Please wait..."
  36. Form1.Refresh
  37. objCreateAWData.AWCreate_Customers
  38. Text1.Text = "Creating Order and Payment Tables.  Please wait..."
  39. Form1.Refresh
  40. objCreateAWData.AWCreate_Orders
  41. Text1.Text = "Creating Product Tables.  Please wait..."
  42. Form1.Refresh
  43. objCreateAWData.AWCreate_Products
  44. Text1.Text = "Complete.  Thanks for your patience."
  45. Form1.Refresh
  46. End Sub
  47. Private Sub Form_Load()
  48. Dim objCreateAWData As New AWDataUtil
  49. Form1.Show
  50. Text1.Text = "Creating Customer Tables.  Please wait..."
  51. Form1.Refresh
  52. objCreateAWData.AWCreate_Customers
  53. Text1.Text = "Creating Order and Payment Tables.  Please wait..."
  54. Form1.Refresh
  55. objCreateAWData.AWCreate_Orders
  56. Text1.Text = "Creating Product Tables.  Please wait..."
  57. Form1.Refresh
  58. objCreateAWData.AWCreate_Products
  59. Text1.Text = "Complete.  Thanks for your patience."
  60. Form1.Refresh
  61. Unload Form1
  62. End Sub
  63.